SOUND1
QUIT>
GETANOTHER
CUSTOMERb
ADDRESSg
STATE
PHONEC
SUBDATE
CREDITCARD
CARDTYPE*
CARDNUMBER
EXPDATE
LICENSE
ITEMONE
PRICEONE
ITEMTWO
PRICETWO7
	ITEMTHREEC
PRICETHREE
ITEMFOUR
	PRICEFOUR
ITEMFIVE
	PRICEFIVE
ITEMSIX<
PRICESIXH
	ITEMSEVEN
PRICESEVEN
SUBTOTAL(
TOTALv
CHOICE
LEAVEONE
RETRIEVEONE
	MESSAGETO
LINEONE;
LINETWOH
	LINETHREEV
CALENDAR
MESSAGEFROM,
MESSAGECVS
SAVEMESSAGE
	DISPLAYIT
WHATTODOm
PRINTIT
PRINT
NEXTONE
	SEARCHFOR
RANDON
	RETRIEVE2
RETRIEVETWO
RETRIEVEo
GETIT
DISPLAY
TALLY
	SKIPTALLYb
SKIPHEADER
PAGEADVANCE
PAGERADVANCE,
LINETWOCHECKr
LINETW0CHECKr	
OPENFILE\
SKIPLINETWOCHECK2
SKIPLINETHREECHECKp
LINETHREECHECKV
	SAVEORNOT
SAVEO6	
	SKIPBLOAD
ORIGMESSAGETO
ORIGLINEONE8
ORIGLINETWO
ORIGLINETHREE$
ORIGCALENDARb
ORIGMESSAGEFROM
ERASEALL<
FINDIT
SLEEP2Y
ERASEDh	
FINDNEXT
SAVEORNOT2]
SKIPTALLY2
	ORIGLINE3
NUMBER
DONECOUNTINGx
FOUND
	SKIPPRINT
INCREASE0
	SKIPTHREE
SKIPFOUR
	SKIPTFOUR
COUNTIT
TWOT	
THREEN
ERRORHANDLER8
AWAITKEY
MENUB
cCLEAR
ERASEONE~
ERASED2@	
ALTER
	WHATATODO
SAVED
HOLDON
HOLDNO
MAIN2
	ENTERCODE
CODEIN+
NOTEMPTY
NEWCODE
CHANGE
SKIPNOTEMPTYn
LINEFOURe
LINEFIVEI
LINESIX
	LINESEVEN
	LINEEIGHT
ORIGLINEFOUR
LINEFOURCHECK
SKIPLINEFOURCHECK^	
ORIGLINEFIVE
ORIGLINESIX
ORIGLINESEVEN
ORIGLINEEIGHT
SKIPLINEFIVECHECK
LINEFIVECHECK
SKIPLINESIXCHECK
LINESIXCHECK!
SKIPLINESEVENCHECK7
LINESEVENCHECK
SKIPLINEEIGHTCHECKX
LINEEIGHTCHECK
SKIPTHECODE
	ENTERMORE
LINEE
WHICH
SELECT
MONTH
YEAR 	
	SHAREWARE
SKIP20TH
	SKIPEIGHT
YEAROK
REPLY
	KEEPTRACK
GETLAST
GETHIGHEST|	
HIGHEST
GETNEXT
DUPJ	
INKEY
	RETURNDUP
ALTER1
ALTER2
ALTER3
ALTER4
ALTER5
ALTER6
ALTER7
ALTER8
ALTER9
	SKIPCLOSE
	SKIPLINES
LINES
STORY
WHATISIT
SKIPCALENDAR
MAINSOUND1
NOMORE
MENU.000
 PRINTER RESET. PRESS 2 TO RETRIEVE 
  WRONG ENTRY  "
routine to RETRIEVE message
CRITERIA.ENT
TEMPO2d
TEXT.RET
STORIES.REC"d
 ALL RECORDS PRINTED "
NONE FOR "
?                                                 
              ARE YOU SURE YOU WISH TO ERASE THIS STORY PAGE(S)? Y/N?           
TEXT.RET
  THIS SINGLE RECORD HAS BEEN ERASED  
               ARE YOU SURE YOU WISH TO ERASE THE ENTIRE YEAR? Y/N?             
TEXT.RET
STORIES.REC"d
 ALL OF ST0RY HAS BEEN ERASED"
LINES.000"
ENTER 60, 66, OR 1 PLEASE!
                           "
TEXT.RET
                              MOVIE STORY LINES"
                
                
                                                  
                
                                                  
                
                                                  
                
                                                  
                
                                                  
                
                                                  
                
TEXT.ENT
  TOO LONG  
__________________________________________________   "
 PLEASE ENTER DATA! 
________________________
__________________________________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS ENTRY - Y/N? 
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS ENTRY - Y/N? 
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS ENTRY - Y/N? 
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
  TOO LONG  
__________________________________________________   "
 THIS ENDS MESSAGE- Y/N? "
__________________________________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
_________________________"
 THEN PLEASE ENTER YOUR TEXT! 
______________________________
Press ENTER to retain same title, or type NEW title!
                                                    
                                                  
                                                  
 USE 50 CHARACTERS AS A MAXIMUM 
__________________________________________________   "
 ENTER MOVIE TITLE PLEASE! "
__________________________________________________
__________________________________________________
                 PRESS S TO SAVE, OR R TO REDO MESSAGE!                         
                                                                                
STORIES.REC"d
IF CODE% > 30 THEN BEEP: BEEP: GOTO SHARE 'Activate this line for shareware version.
TEXT.RET
      Printer NOT ON, or OUT OF PAPER.  Check and press any key to continue!    
                                                                                
SHARE.001"
TEMPO2d
STORIES.REC"d
DUP.000"
 NO MORE MATCHES "
                 "